paramPlot <-function(inputDir,outputDir="./"){
inputDir <-normalizePath(inputDir)

for(file in  list.files(inputDir,pattern="*.[rR][dD][aA]",full.names=TRUE)){
#	result <-load(file)
#	print(result)
#	result <-get(result)
#	print("RES OBJ:");print(result)
		load(file)
	title <- paste(result$Name,"\n",result$ScoreOBJ)
	meanMatrixPlot(result$outMatrix,title=title,xVec=result$parSeq,directory=inputDir,summDesc=result$Name)
}


}